<!--#include file=conn.asp-->
<%

    set rs_num = Server.CreateObject("ADODB.recordset")
    sql_num = "Select arti_number From tb_number where id = "& id &""
    rs_num.Open sql_num,conn
    
    number = rs_num(0)+1
    
    sql="update tb_number set arti_number='" & number & "' where id="& id &""
    on error resume next
    conn.Execute sql,recaffected    
     
    response.Write(number)
    rs_num.close:Set rs_num=Nothing
    conn.Close:set conn=Nothing

%>